home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / BINARY LINK TO AB.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  33 lines
  1. 1  REM  MACHINE LANGUAGE ROUTINE    LINK TO APPLESOFT PROGRMS
  2. 2  REM  BY JOHN AND LLOYD PARK
  3. 3  REM  RUAG VOL 4 NO 1 MAR'81                                                                               
  4. 5  HOME 
  5. 10 D$ =  CHR$(4): REM  CTRL-D
  6. 15  PRINT D$"PR#0"
  7. 20  PRINT "ENTER MACHINE LANGUAGE SUBRTN NAME": INPUT "==>  ";S$: PRINT 
  8. 30  PRINT "ENTER APPLESOFT PROGRAM NAME": INPUT "==>  ";P$: PRINT 
  9. 40  PRINT "ENTER NAME LINKED PGM TO BE SAVED UNDER": INPUT "==>  ";N$
  10. 50  PRINT D$"OPEN TEMP EXEC"
  11. 60  PRINT D$"WRITE TEMP EXEC"
  12. 70  PRINT "BLOAD  ";S$
  13. 75  PRINT "NEW"
  14. 80  PRINT "10 CALL 2063:RUN"
  15. 90  PRINT "CALL-151"
  16. 100  PRINT "300:18 AD 60 AA 6D 72 AA 85 67 AD 61 AA 6D 73 AA 85 68 A9 00 A8 91 67 18 A9 01 65 67 85 67 A9 00 65 68 85 68 60"
  17. 110  PRINT "324:A5 67 8D 10 08 A5 68 8D 14 08 A9 01 85 67 A9 08 85 68 60"
  18. 115  PRINT "80F:A9 00 85 67 A9 00 85 68 60"
  19. 120  PRINT "300G"
  20. 125  PRINT "<CTRL-C>": REM  CTRL-C
  21. 130  PRINT "LOAD ";P$
  22. 140  PRINT "CALL 804"
  23. 150  PRINT "SAVE ";N$
  24. 155  PRINT "NOMON,I"
  25. 160  PRINT "DELETE TEMP EXEC"
  26. 170  PRINT D$"CLOSE TEMP EXEC"
  27. 175  PRINT D$"MON,I"
  28. 180  PRINT D$"EXEC TEMP EXEC"
  29. 190  END 
  30. 200  PRINT "THIS PROGRAM LINKS MACHINE LANGUAGE     SUBROUTINES STARTING AT HEX 818 WITH    APPLESOFT PROGRAMS."
  31. 201  PRINT 
  32. 210  PRINT "YOU WILL BE PROMPTED TO ENTER THE SUBRTNFILE NAME, APPLESOFT PGM FILE NAME, AND THE FILE NAME YOU WISH THE LINKED PGM   TO BE SAVED UNDER."
  33. 220  PRINT : PRINT "*** NOTE: BE SURE THE FIRST TWO ARE ON  THE DISK BEING USED OR THE RESULTS MAY  BE UNPREDICTABLE!!! ***"